perm filename INFIX.LAP[BNF,JRA]1 blob
sn#028955 filedate 1973-03-14 generic text, type T, neo UTF8
(LAP SUBFUN1<PRED> SUBR)
(CALL 0 (E <PREPREDLET>))
(JUMPE 1 TAG2)
(CALL 0 (E <ITMLST>))
(JUMPE 1 TAG2)
(MOVEI 1 (QUOTE 1))
(CALL 1 (E STK))
(PUSH P 1)
(MOVEI 1 (QUOTE 0))
(CALL 1 (E STK))
(POP P 2)
(CALL 2 (E XCONS))
(JRST 0 TAG1)
TAG2 (CALL 0 (E <TM>))
(JUMPE 1 TAG4)
(CALL 0 (E <INFPREDLET>))
(JUMPE 1 TAG4)
(CALL 0 (E <TM1>))
(JUMPE 1 TAG4)
(MOVEI 1 (QUOTE 1))
(CALL 1 (E STK))
(PUSH P 1)
(MOVEI 1 (QUOTE 2))
(CALL 1 (E STK))
(PUSH P 1)
(MOVEI 1 (QUOTE 0))
(CALL 1 (E STK))
(CALL 1 (E NCONS))
(POP P 2)
(CALL 2 (E XCONS))
(POP P 2)
(CALL 2 (E XCONS))
(JRST 0 TAG1)
TAG4 (MOVE 1 (SPECIAL *NIL*))
TAG1 (POPJ P)
NIL
(LAP <PRED> SUBR)
(MOVEI 2 (QUOTE SUBFUN1<PRED>))
(MOVEI 1 (QUOTE PRED))
(JCALL 2 (E NLRR))
NIL
(LAP SUBFUN1<ITMLST> SUBR)
(MOVEI 1 (QUOTE 50))
(CALL 1 (E CHX))
(JUMPE 1 TAG2)
(CALL 0 (E <ITMS>))
(JUMPE 1 TAG2)
(MOVEI 1 (QUOTE 0))
(CALL 1 (E STK))
(JRST 0 TAG1)
TAG2 (MOVE 1 (SPECIAL *NIL*))
TAG1 (POPJ P)
NIL
(LAP <ITMLST> SUBR)
(MOVEI 2 (QUOTE SUBFUN1<ITMLST>))
(MOVEI 1 (QUOTE ITMLST))
(JCALL 2 (E NLRR))
NIL
(LAP SUBFUN1<ITMS> SUBR)
(CALL 0 (E <TM2>))
(JUMPE 1 TAG2)
(CALL 0 (E <ITMS>))
(JUMPE 1 TAG2)
(MOVEI 1 (QUOTE 1))
(CALL 1 (E STK))
(PUSH P 1)
(MOVEI 1 (QUOTE 0))
(CALL 1 (E STK))
(POP P 2)
(CALL 2 (E XCONS))
(JRST 0 TAG1)
TAG2 (CALL 0 (E <TM>))
(JUMPE 1 TAG4)
(MOVEI 1 (QUOTE 51))
(CALL 1 (E CHX))
(JUMPE 1 TAG4)
(MOVEI 1 (QUOTE 1))
(CALL 1 (E STK))
(CALL 1 (E NCONS))
(JRST 0 TAG1)
TAG4 (MOVE 1 (SPECIAL *NIL*))
TAG1 (POPJ P)
NIL
(LAP <ITMS> SUBR)
(MOVEI 2 (QUOTE SUBFUN1<ITMS>))
(MOVEI 1 (QUOTE ITMS))
(JCALL 2 (E NLRR))
NIL
(LAP SUBFUN1<TM> SUBR)
(CALL 0 (E <IVAR>))
(JUMPE 1 TAG2)
(MOVEI 1 (QUOTE 0))
(CALL 1 (E STK))
(JRST 0 TAG1)
TAG2 (CALL 0 (E <PREFN>))
(JUMPE 1 TAG4)
(CALL 0 (E <ITMLST>))
(JUMPE 1 TAG4)
(MOVEI 1 (QUOTE 1))
(CALL 1 (E STK))
(PUSH P 1)
(MOVEI 1 (QUOTE 0))
(CALL 1 (E STK))
(POP P 2)
(CALL 2 (E XCONS))
(JRST 0 TAG1)
TAG4 (CALL 0 (E <PREFN>))
(JUMPE 1 TAG6)
(MOVEI 1 (QUOTE 0))
(CALL 1 (E STK))
(CALL 1 (E NCONS))
(JRST 0 TAG1)
TAG6 (MOVEI 1 (QUOTE 50))
(CALL 1 (E CHX))
(JUMPE 1 TAG10)
(CALL 0 (E <TM>))
(JUMPE 1 TAG10)
(MOVEI 1 (QUOTE 51))
(CALL 1 (E CHX))
(JUMPE 1 TAG10)
(MOVEI 1 (QUOTE 1))
(CALL 1 (E STK))
(JRST 0 TAG1)
TAG10 (MOVE 1 (SPECIAL *NIL*))
TAG1 (POPJ P)
NIL
(LAP SUBFUN2<TM> SUBR)
(PUSH P 1)
(CALL 0 (E <INFN>))
(JUMPE 1 TAG2)
(CALL 0 (E <TM1>))
(JUMPE 1 TAG2)
(MOVEI 1 (QUOTE 1))
(CALL 1 (E STK))
(PUSH P 1)
(MOVEI 1 (QUOTE 0))
(CALL 1 (E STK))
(CALL 1 (E NCONS))
(MOVE 2 -1 P)
(CALL 2 (E XCONS))
(POP P 2)
(CALL 2 (E XCONS))
(JRST 0 TAG1)
TAG2 (MOVE 1 (SPECIAL *NIL*))
TAG1 (SUB P (C 0 0 1 1))
(POPJ P)
NIL
(LAP <TM> SUBR)
(MOVEI 3 (QUOTE SUBFUN2<TM>))
(MOVEI 2 (QUOTE SUBFUN1<TM>))
(MOVEI 1 (QUOTE TM))
(JCALL 3 (E LRR))
NIL
(LAP SUBFUN1<TM1> SUBR)
(CALL 0 (E <TM>))
(JUMPE 1 TAG2)
(MOVEI 1 (QUOTE 0))
(CALL 1 (E STK))
(JRST 0 TAG1)
TAG2 (MOVE 1 (SPECIAL *NIL*))
TAG1 (POPJ P)
NIL
(LAP <TM1> SUBR)
(MOVEI 2 (QUOTE SUBFUN1<TM1>))
(MOVEI 1 (QUOTE TM1))
(JCALL 2 (E NLRR))
NIL
(LAP SUBFUN1<TM2> SUBR)
(CALL 0 (E <TM>))
(JUMPE 1 TAG2)
(MOVEI 1 (QUOTE 54))
(CALL 1 (E CHX))
(JUMPE 1 TAG2)
(MOVEI 1 (QUOTE 1))
(CALL 1 (E STK))
(JRST 0 TAG1)
TAG2 (MOVE 1 (SPECIAL *NIL*))
TAG1 (POPJ P)
NIL
(LAP <TM2> SUBR)
(MOVEI 2 (QUOTE SUBFUN1<TM2>))
(MOVEI 1 (QUOTE TM2))
(JCALL 2 (E NLRR))
NIL
(LAP SUBFUN1>PRED< SUBR)
(MOVEI 1 (QUOTE (* . *)))
(CALL 1 (E MATCH))
(JUMPE 1 TAG2)
(MOVEI 1 (QUOTE 1))
(CALL 1 (E >PREPREDLET<))
(JUMPE 1 TAG2)
(MOVEI 1 (QUOTE 0))
(CALL 1 (E >ITMLST<))
(JUMPE 1 TAG2)
(CALL 0 (E STK1))
(PUSH P 1)
(CALL 0 (E STK0))
(CALL 1 (E NCONS))
(POP P 2)
(CALL 2 (E XCONS))
(JRST 0 TAG1)
TAG2 (MOVEI 1 (QUOTE (* * *)))
(CALL 1 (E MATCH))
(JUMPE 1 TAG4)
(MOVEI 1 (QUOTE 2))
(CALL 1 (E >INFPREDLET<))
(JUMPE 1 TAG4)
(MOVEI 1 (QUOTE 1))
(CALL 1 (E >TM<))
(JUMPE 1 TAG4)
(MOVEI 1 (QUOTE 0))
(CALL 1 (E >TM1<))
(JUMPE 1 TAG4)
(CALL 0 (E STK1))
(PUSH P 1)
(CALL 0 (E STK2))
(PUSH P 1)
(CALL 0 (E STK0))
(CALL 1 (E NCONS))
(POP P 2)
(CALL 2 (E XCONS))
(POP P 2)
(CALL 2 (E XCONS))
TAG4
TAG1 (POPJ P)
NIL
(LAP >PRED< SUBR)
(MOVEI 2 (QUOTE SUBFUN1>PRED<))
(JCALL 2 (E OUTRUL))
NIL
(LAP SUBFUN1>ITMLST< SUBR)
(MOVEI 1 (QUOTE 1))
(CALL 1 (E >ITMS<))
(JUMPE 1 TAG2)
(CALL 0 (E STK1))
(CALL 1 (E NCONS))
(MOVEI 2 (QUOTE (:CH /()))
(CALL 2 (E XCONS))
TAG2 (POPJ P)
NIL
(LAP >ITMLST< SUBR)
(MOVEI 2 (QUOTE SUBFUN1>ITMLST<))
(JCALL 2 (E OUTRUL))
NIL
(LAP SUBFUN1>ITMS< SUBR)
(MOVEI 1 (QUOTE (*)))
(CALL 1 (E MATCH))
(JUMPE 1 TAG2)
(MOVEI 1 (QUOTE 0))
(CALL 1 (E >TM<))
(JUMPE 1 TAG2)
(CALL 0 (E STK0))
(PUSH P 1)
(MOVEI 1 (QUOTE (:CH /))))
(CALL 1 (E NCONS))
(POP P 2)
(CALL 2 (E XCONS))
(JRST 0 TAG1)
TAG2 (MOVEI 1 (QUOTE (* . *)))
(CALL 1 (E MATCH))
(JUMPE 1 TAG4)
(MOVEI 1 (QUOTE 1))
(CALL 1 (E >TM2<))
(JUMPE 1 TAG4)
(MOVEI 1 (QUOTE 0))
(CALL 1 (E >ITMS<))
(JUMPE 1 TAG4)
(CALL 0 (E STK1))
(PUSH P 1)
(CALL 0 (E STK0))
(CALL 1 (E NCONS))
(POP P 2)
(CALL 2 (E XCONS))
TAG4
TAG1 (POPJ P)
NIL
(LAP >ITMS< SUBR)
(MOVEI 2 (QUOTE SUBFUN1>ITMS<))
(JCALL 2 (E OUTRUL))
NIL
(LAP SUBFUN1>TM< SUBR)
(MOVEI 1 (QUOTE 1))
(CALL 1 (E >IVAR<))
(JUMPE 1 TAG2)
(CALL 0 (E STK1))
(JRST 0 TAG1)
TAG2 (MOVEI 1 (QUOTE (*)))
(CALL 1 (E MATCH))
(JUMPE 1 TAG3)
(MOVEI 1 (QUOTE 0))
(CALL 1 (E >PREFN<))
(JUMPE 1 TAG3)
(CALL 0 (E STK0))
(JRST 0 TAG1)
TAG3 (MOVEI 1 (QUOTE (* * *)))
(CALL 1 (E MATCH))
(JUMPE 1 TAG5)
(MOVEI 1 (QUOTE 2))
(CALL 1 (E >INFN<))
(JUMPE 1 TAG5)
(MOVEI 1 (QUOTE 1))
(CALL 1 (E >TM<))
(JUMPE 1 TAG5)
(MOVEI 1 (QUOTE 0))
(CALL 1 (E >TM1<))
(JUMPE 1 TAG5)
(CALL 0 (E STK1))
(PUSH P 1)
(CALL 0 (E STK2))
(PUSH P 1)
(CALL 0 (E STK0))
(CALL 1 (E NCONS))
(POP P 2)
(CALL 2 (E XCONS))
(POP P 2)
(CALL 2 (E XCONS))
(JRST 0 TAG1)
TAG5 (MOVEI 1 (QUOTE (* . *)))
(CALL 1 (E MATCH))
(JUMPE 1 TAG7)
(MOVEI 1 (QUOTE 1))
(CALL 1 (E >PREFN<))
(JUMPE 1 TAG7)
(MOVEI 1 (QUOTE 0))
(CALL 1 (E >ITMLST<))
(JUMPE 1 TAG7)
(CALL 0 (E STK1))
(PUSH P 1)
(CALL 0 (E STK0))
(CALL 1 (E NCONS))
(POP P 2)
(CALL 2 (E XCONS))
(JRST 0 TAG1)
TAG7 (MOVEI 1 (QUOTE 1))
(CALL 1 (E >TM<))
(JUMPE 1 TAG11)
(CALL 0 (E STK1))
(PUSH P 1)
(MOVEI 1 (QUOTE (:CH /))))
(CALL 1 (E NCONS))
(POP P 2)
(CALL 2 (E XCONS))
(MOVEI 2 (QUOTE (:CH /()))
(CALL 2 (E XCONS))
TAG11
TAG1 (POPJ P)
NIL
(LAP >TM< SUBR)
(MOVEI 2 (QUOTE SUBFUN1>TM<))
(JCALL 2 (E OUTRUL))
NIL
(LAP SUBFUN1>TM1< SUBR)
(MOVEI 1 (QUOTE 1))
(CALL 1 (E >TM<))
(JUMPE 1 TAG2)
(CALL 0 (E STK1))
TAG2 (POPJ P)
NIL
(LAP >TM1< SUBR)
(MOVEI 2 (QUOTE SUBFUN1>TM1<))
(JCALL 2 (E OUTRUL))
NIL
(LAP SUBFUN1>TM2< SUBR)
(MOVEI 1 (QUOTE 1))
(CALL 1 (E >TM<))
(JUMPE 1 TAG2)
(CALL 0 (E STK1))
(PUSH P 1)
(MOVEI 1 (QUOTE (:CH /,)))
(CALL 1 (E NCONS))
(POP P 2)
(CALL 2 (E XCONS))
TAG2 (POPJ P)
NIL
(LAP >TM2< SUBR)
(MOVEI 2 (QUOTE SUBFUN1>TM2<))
(JCALL 2 (E OUTRUL))
NIL